﻿Imports FairShop.Helpers

Public Class MeldingForm

    Protected Overrides Sub OnLoad(ByVal e As EventArgs)
        MyBase.OnLoad(e)
        Dim idMelding As Integer = MeldingenHelper.GetAndUpdateTeTonenMeldingId()
        Dim tekst As String = Utility.Data.Meldingen.FindById(idMelding).Melding
        Try
            RichTextBoxMelding.Rtf = tekst
        Catch ex As ArgumentException
            log.WriteError("MeldingForm.OnLoad", ex)
            If (tekst.StartsWith("{")) Then
                ' als de rtf niet goed gevormd is
                RichTextBoxMelding.Text = "De melding kan niet weergegeven worden."
            Else
                ' als het geen rtf is
                RichTextBoxMelding.Text = tekst
            End If
        End Try
    End Sub

    Private Sub ButtonSluiten_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonSluiten.Click
        Me.Close()
    End Sub

End Class